* lisp/help-fns.el (variable-at-point): Skip leading quotes, if any

(bug#8253).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e41e948ef295ef5d79c13cb7dc1c688a2fe770c2..6d80ed0f5bd748921398a6f3239bb72c1d318fb9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-15  Kevin Ryde  <user42@zip.com.au>
+
+       * help-fns.el (variable-at-point): Skip leading quotes, if any
+       (bug#8253).
+
 2011-03-15  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index e27a1e47b5c0e0dc90de366d96eb523cc99ede91..ede80f858bf6bfd28b8a665ddebe1c84a197e7e5 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -534,6 +534,7 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be bound."
   (with-syntax-table emacs-lisp-mode-syntax-table
     (or (condition-case ()
            (save-excursion
+             (skip-chars-forward "'")
              (or (not (zerop (skip-syntax-backward "_w")))
                  (eq (char-syntax (following-char)) ?w)
                  (eq (char-syntax (following-char)) ?_)